home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / dbmail.arc / ML0442.PRG < prev    next >
Text File  |  1988-06-18  |  896b  |  47 lines
  1. NOTE ML0442 - MAKE BACK UP OF DATA BASE        9/24/84
  2. @ 14,0 SAY 'Do you wish to Make a Back Up Copy of your Data Base Before Proceeding? (Y/N)'
  3. STORE 'Y'    TO RESP
  4. @ 15,10 SAY 'Enter Option (Y/N) ' GET RESP PICTURE '!'
  5. READ
  6. IF RESP='N'
  7.     RETURN
  8.     ENDIF
  9. IF FILE('&FDEV..BAK')
  10.     @ 16,0 SAY 'Back Up Copy Found on same Drive as Original. Do you Wish to Overwrite?'
  11.     @ 17,10 SAY 'Enter Option (Y/N) ' GET RESP PICTURE '!'
  12.     IF RESP='N'
  13.         RETURN
  14.         ENDIF
  15.     @ 16,0
  16.     ENDIF
  17. USE &FDEV
  18. GOTO 1
  19. STORE * .AND.RECID=0    TO OK
  20. IF OK
  21.     RECALL
  22.     ENDIF
  23. @ 19,10 SAY 'Back Up in Progress.'
  24. SET TALK ON
  25. COPY TO &FDEV..BAK
  26. SET TALK OFF
  27. IF OK
  28.     GOTO 1
  29.     DELETE
  30.     USE &FDEV..BAK
  31.     GOTO 1
  32.     DELETE
  33.     ENDIF
  34. USE
  35. @ 19,10 SAY 'Back Up Complete.        '
  36. RELEASE RESP,OK
  37. RETURN
  38. DELETE
  39.     USE &FDEV..BAK
  40.     GOTO 1
  41.     DELETE
  42.     ENDIF
  43. USE
  44. @ 19,10 SAY 'Back Up Complete.        '
  45. RELEASE RESP,OK
  46. RETURN
  47.